home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / glisp.zoo / FIB1.GL < prev    next >
Encoding:
Text File  |  1990-08-04  |  133 b   |  7 lines
  1. "fib - plus undefined"
  2. (de fib1 (n)
  3.   (if (< n 2) 1 (plus (fib1 (- n 1)) (fib1 (- n 2)))))
  4. (setq plus +)
  5. "(fib1 22)"
  6. (fib1 22)
  7.